Holt Researcher: American History/Holt Researcher: American History.iso/pc/modules/grphwiz.dxr/00085_open button.ls

Text File | 2000-01-14 | 1.0 KB | 41 lines

property ancestor, pMIAW
global gGraph, gIsRolloverTextOn

on new me, buttonName, castName, theChannel, theStageLoc, theBalloonChannel, theBalloonLoc, descendant
  if objectp(descendant) then
    ancestor = new(script("button with balloon"), buttonName, castName, theChannel, theStageLoc, theBalloonChannel, theBalloonLoc, descendant)
  else
    ancestor = new(script("button with balloon"), buttonName, castName, theChannel, theStageLoc, theBalloonChannel, theBalloonLoc, me)
  end if
  cursor = [member("point hand", "graph.cst"), member("point hand mask", "graph.cst")]
  set the cursor of sprite the pChannel of me to cursor
  return me
end

on setMIAW me, miaw
  pMIAW = miaw
  return me
end

on performFunction me
  tell the stage
    playSFX(5)
  end tell
  openFromFile(pMIAW)
  return me
end

on performRolloverFunction me
  if gIsRolloverTextOn then
    performRolloverFunction(ancestor)
  end if
  return me
end

on performRolloffFunction me
  if gIsRolloverTextOn then
    performRolloffFunction(ancestor)
  end if
  return me
end